home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / simon1 / simon.gbl < prev    next >
Text File  |  1991-09-03  |  4KB  |  101 lines
  1. Global Const TRUE = -1
  2. Global Const FALSE = 0
  3.  
  4. Declare Function OpenSound Lib "Sound" () As Integer
  5. Declare Sub CloseSound Lib "Sound" ()
  6. Declare Function SetVoiceQueueSize Lib "Sound" (ByVal nVoice As Integer, ByVal nBytes As Integer) As Integer
  7. Declare Function SetVoiceNote Lib "Sound" (ByVal nVoice As Integer, ByVal nValue As Integer, ByVal nLength As Integer, ByVal nCdots As Integer) As Integer
  8. Declare Function SetVoiceAccent Lib "Sound" (ByVal nVoice As Integer, ByVal nTempo As Integer, ByVal nVolume As Integer, ByVal nMode As Integer, ByVal nPitch As Integer) As Integer
  9. Declare Function SetVoiceEnvelope Lib "Sound" (ByVal nVoice As Integer, ByVal nShape As Integer, ByVal nRepeat As Integer) As Integer
  10. Declare Function SetSoundNoise Lib "Sound" (ByVal nSource As Integer, ByVal nDuration As Integer) As Integer
  11. Declare Function SetVoiceSound Lib "Sound" (ByVal nVoice As Integer, ByVal lFrequency As Long, ByVal nDuration As Integer) As Integer
  12. Declare Function StartSound Lib "Sound" () As Integer
  13. Declare Function StopSound Lib "Sound" () As Integer
  14. Declare Function WaitSoundState Lib "Sound" (ByVal nState As Integer) As Integer
  15. Declare Function SyncAllVoices Lib "Sound" () As Integer
  16. Declare Function CountVoiceNotes Lib "Sound" (ByVal nVoice As Integer) As Integer
  17. Declare Function GetThresholdEvent Lib "Sound" () As Integer
  18. Declare Function GetThresholdStatus Lib "Sound" () As Integer
  19. Declare Function SetVoiceThreshold Lib "Sound" (ByVal nVoice As Integer, ByVal nNotes As Integer) As Integer
  20.  
  21. '  WaitSoundState() Constants
  22. Global Const S_QUEUEEMPTY = 0
  23. Global Const S_THRESHOLD = 1
  24. Global Const S_ALLTHRESHOLD = 2
  25.  
  26. '  Accent Modes
  27. Global Const S_NORMAL = 0
  28. Global Const S_LEGATO = 1
  29. Global Const S_STACCATO = 2
  30.  
  31. '  SetSoundNoise() Sources
  32. Global Const S_PERIOD512 = 0    '  Freq = N/512 high pitch, less coarse hiss
  33. Global Const S_PERIOD1024 = 1   '  Freq = N/1024
  34. Global Const S_PERIOD2048 = 2   '  Freq = N/2048 low pitch, more coarse hiss
  35. Global Const S_PERIODVOICE = 3  '  Source is frequency from voice channel (3)
  36. Global Const S_WHITE512 = 4 '  Freq = N/512 high pitch, less coarse hiss
  37. Global Const S_WHITE1024 = 5    '  Freq = N/1024
  38. Global Const S_WHITE2048 = 6    '  Freq = N/2048 low pitch, more coarse hiss
  39. Global Const S_WHITEVOICE = 7   '  Source is frequency from voice channel (3)
  40.  
  41. Global Const S_SERDVNA = (-1)   '  Device not available
  42. Global Const S_SEROFM = (-2)    '  Out of memory
  43. Global Const S_SERMACT = (-3)   '  Music active
  44. Global Const S_SERQFUL = (-4)   '  Queue full
  45. Global Const S_SERBDNT = (-5)   '  Invalid note
  46. Global Const S_SERDLN = (-6)    '  Invalid note length
  47. Global Const S_SERDCC = (-7)    '  Invalid note count
  48. Global Const S_SERDTP = (-8)    '  Invalid tempo
  49. Global Const S_SERDVL = (-9)    '  Invalid volume
  50. Global Const S_SERDMD = (-10)   '  Invalid mode
  51. Global Const S_SERDSH = (-11)   '  Invalid shape
  52. Global Const S_SERDPT = (-12)   '  Invalid pitch
  53. Global Const S_SERDFQ = (-13)   '  Invalid frequency
  54. Global Const S_SERDDR = (-14)   '  Invalid duration
  55. Global Const S_SERDSR = (-15)   '  Invalid source
  56. Global Const S_SERDST = (-16)   '  Invalid state
  57.  
  58.  
  59. Global Const BREAD = &HFF&
  60. Global Const BBROWN = &H80FF&
  61. Global Const BYELLOW = &HFFFF&
  62. Global Const BGREEN = &HFF00&
  63. Global Const BPURPLE = &HFF00FF
  64. Global Const BBLUE = &HFF0000
  65. Global Const bkaki = &H4040&
  66.  
  67. Global Const lread = &H8080FF
  68. Global Const lbrown = &H80C0FF
  69. Global Const lyellow = &H80FFFF
  70. Global Const lgreen = &HC0FFC0
  71. Global Const lpurple = &HFF80FF
  72. Global Const lblue = &HFF8080
  73.  
  74. Global Const lkaki = &H8080&
  75.  
  76.  
  77. Global Const modal = 1
  78. Global Const modeless = 0
  79.  
  80.  
  81. Global parray(132) As Integer
  82. Global uarray(132) As Integer
  83. Global match%
  84. Global startup%
  85. Global stepper%
  86. Global del%
  87. Global lev%
  88. Global t_int%
  89. Global won%
  90. Global i%
  91. Global r%
  92. Global note%
  93. Global delay%
  94. Global dots%
  95. Global StartDir$
  96. Global NL$
  97. Global errnum%
  98.  
  99.   
  100.  
  101.